﻿Imports System.Windows.Forms

Imports System

Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports OpenRH



'''<summary>
'''Se trata de una clase de prueba para AgregarNivelTest y se pretende que
'''contenga todas las pruebas unitarias AgregarNivelTest.
'''</summary>
<TestClass()> _
Public Class AgregarNivelTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Obtiene o establece el contexto de la prueba que proporciona
    '''la información y funcionalidad para la ejecución de pruebas actual.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Atributos de prueba adicionales"
    '
    'Puede utilizar los siguientes atributos adicionales mientras escribe sus pruebas:
    '
    'Use ClassInitialize para ejecutar código antes de ejecutar la primera prueba en la clase 
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup para ejecutar código después de haber ejecutado todas las pruebas en una clase
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize para ejecutar código antes de ejecutar cada prueba
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup para ejecutar código después de que se hayan ejecutado todas las pruebas
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''Una prueba de txtMinimo
    '''</summary>
    <TestMethod()> _
    Public Sub txtMinimoTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As TextBox = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As TextBox
        target.txtMinimo = expected
        actual = target.txtMinimo
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de txtMaximo
    '''</summary>
    <TestMethod()> _
    Public Sub txtMaximoTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As TextBox = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As TextBox
        target.txtMaximo = expected
        actual = target.txtMaximo
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de lblNivel
    '''</summary>
    <TestMethod()> _
    Public Sub lblNivelTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Label = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Label
        target.lblNivel = expected
        actual = target.lblNivel
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de lblMsj
    '''</summary>
    <TestMethod()> _
    Public Sub lblMsjTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Label = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Label
        target.lblMsj = expected
        actual = target.lblMsj
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de lblDepartamento
    '''</summary>
    <TestMethod()> _
    Public Sub lblDepartamentoTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Label = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Label
        target.lblDepartamento = expected
        actual = target.lblDepartamento
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Label4
    '''</summary>
    <TestMethod()> _
    Public Sub Label4Test()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Label = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Label
        target.Label4 = expected
        actual = target.Label4
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Label3
    '''</summary>
    <TestMethod()> _
    Public Sub Label3Test()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Label = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Label
        target.Label3 = expected
        actual = target.Label3
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de Label2
    '''</summary>
    <TestMethod()> _
    Public Sub Label2Test()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Label = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Label
        target.Label2 = expected
        actual = target.Label2
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de cmbDepartamento
    '''</summary>
    <TestMethod()> _
    Public Sub cmbDepartamentoTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As ComboBox = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As ComboBox
        target.cmbDepartamento = expected
        actual = target.cmbDepartamento
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de btnOk
    '''</summary>
    <TestMethod()> _
    Public Sub btnOkTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Button = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Button
        target.btnOk = expected
        actual = target.btnOk
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de btnCancelar
    '''</summary>
    <TestMethod()> _
    Public Sub btnCancelarTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        Dim expected As Button = Nothing ' TODO: Inicializar en un valor adecuado
        Dim actual As Button
        target.btnCancelar = expected
        actual = target.btnCancelar
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de validarVacio
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub validarVacioTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim expected As Boolean = False ' TODO: Inicializar en un valor adecuado
        Dim actual As Boolean
        actual = target.validarVacio
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de validar
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub validarTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim expected As Boolean = False ' TODO: Inicializar en un valor adecuado
        Dim actual As Boolean
        actual = target.validar
        Assert.AreEqual(expected, actual)
        Assert.Inconclusive("Compruebe la exactitud de este método de prueba.")
    End Sub

    '''<summary>
    '''Una prueba de txtMinimo_KeyPress
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub txtMinimo_KeyPressTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim sender As Object = Nothing ' TODO: Inicializar en un valor adecuado
        Dim e As KeyPressEventArgs = Nothing ' TODO: Inicializar en un valor adecuado
        target.txtMinimo_KeyPress(sender, e)
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de txtMaximo_KeyPress
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub txtMaximo_KeyPressTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim sender As Object = Nothing ' TODO: Inicializar en un valor adecuado
        Dim e As KeyPressEventArgs = Nothing ' TODO: Inicializar en un valor adecuado
        target.txtMaximo_KeyPress(sender, e)
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de llenarDepartamentos
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub llenarDepartamentosTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        target.llenarDepartamentos()
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de InitializeComponent
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub InitializeComponentTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        target.InitializeComponent()
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de Dispose
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub DisposeTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim disposing As Boolean = False ' TODO: Inicializar en un valor adecuado
        target.Dispose(disposing)
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de cmbDepartamento_DropDownClosed
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub cmbDepartamento_DropDownClosedTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim sender As Object = Nothing ' TODO: Inicializar en un valor adecuado
        Dim e As EventArgs = Nothing ' TODO: Inicializar en un valor adecuado
        target.cmbDepartamento_DropDownClosed(sender, e)
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de btnOk_Click
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub btnOk_ClickTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim sender As Object = Nothing ' TODO: Inicializar en un valor adecuado
        Dim e As EventArgs = Nothing ' TODO: Inicializar en un valor adecuado
        target.btnOk_Click(sender, e)
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de alertarVacio
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub alertarVacioTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        target.alertarVacio()
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de alertarExito
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub alertarExitoTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        target.alertarExito()
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de alertarError
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub alertarErrorTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        target.alertarError()
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de AgregarNivel_Load
    '''</summary>
    <TestMethod(), _
     DeploymentItem("OpenRH.exe")> _
    Public Sub AgregarNivel_LoadTest()
        Dim target As AgregarNivel_Accessor = New AgregarNivel_Accessor ' TODO: Inicializar en un valor adecuado
        Dim sender As Object = Nothing ' TODO: Inicializar en un valor adecuado
        Dim e As EventArgs = Nothing ' TODO: Inicializar en un valor adecuado
        target.AgregarNivel_Load(sender, e)
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de actualizarNivel
    '''</summary>
    <TestMethod()> _
    Public Sub actualizarNivelTest()
        Dim target As AgregarNivel = New AgregarNivel ' TODO: Inicializar en un valor adecuado
        target.actualizarNivel()
        Assert.Inconclusive("Un método que no devuelve ningún valor no se puede comprobar.")
    End Sub

    '''<summary>
    '''Una prueba de Constructor AgregarNivel
    '''</summary>
    <TestMethod()> _
    Public Sub AgregarNivelConstructorTest()
        Dim target As AgregarNivel = New AgregarNivel
        Assert.Inconclusive("TODO: Implementar código para comprobar el destino")
    End Sub
End Class
